**Stata code for "Does incentivization promote sharing 'true' content online? Tables S6-S9 (Supplementary Material)
**Authors: Rezaei et al.
**Forthcoming in HKS Misinformation Review
**Date: 12 July 2023

set more off
clear all
version 18

use long_merge.dta, clear

log using anova.txt, text

** ANOVA for each variable by characteristic **
foreach v in postshare2 posthappy2 postdisgust2 postanger2 {
foreach var in gender religion postinfotype_code { 
	anova `v' gender c.age c.education religion c.pi_purity c.pi_obedience postreadmore2 treat postinfotype_code 
	tukeyhsd `var'
	tabstat  `v', by(`var') stat(mean sd)
}
}
log close

export excel using "long_merged", firstrow(variables) nolabel